home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9403a.d64
/
kalender prg. 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
286b
|
13 lines
5 REM NICHT GEEIGNET FUER SCHALTJAHRE
10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
20 T=VAL(MID$(D$,1,2))
30 M=VAL(MID$(D$,3,2))
40 J=VAL(MID$(D$,5))
50 IF M<1 OR M>12 THEN RUN
60 IF T<1 OR T>31 THEN RUN
70 REM WELCHE TAGESNUMMER ?
80 IF M>2 THEN N=INT(30.6*(M+1))-63+T:GOTO 100
90 N=INT(30.6*(M+13))-428+T
100 PRINT"NUMMER"N
110 END